(load "./startup.ss")
(import (srfi v115))

(define re `(: "<" (-> tag ascii) ">" (+ (or alphabetic numeric)) "</" (backref tag) ">"))


(valid-sre? (regexp "[a-z]"))
(valid-sre? `(: "<" (-> tag ascii) ">" (+ (or alphabetic numeric)) "</" (backref tag) ">"))

(regexp "[a-z]")

(define (split-string source)
  (regexp-extract re source))

(split-string "<a>sdfsdf</a>")
